Komputer for Alle 2001 #6/CD 6 (Black) - 2001.iso/K-CS.dcr/00277_D4-animation.ls

Text File | 2001-02-20 | 547 b | 24 lines

global ImageNum, HPos, VPos

on new me
  puppetSound("Landelyd")
  set ImageNum to 393
  set HPos to the mouseH
  set VPos to the mouseV
  set the locH of sprite 74 to HPos
  set the locV of sprite 74 to VPos
  set the locH of sprite 99 to 780
end

on exitFrame
  set ImageNum to ImageNum + 1
  if ImageNum > 408 then
    go(#next)
  end if
  set the locH of sprite 74 to HPos
  set the locV of sprite 74 to VPos - ((64 - ((ImageNum - 400) * (ImageNum - 400))) * 3)
  set the memberNum of sprite 74 to ImageNum
  updateStage()
  go(the frame)
end